home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / data / dora102f / doraset.plp < prev    next >
Text File  |  1993-07-08  |  25KB  |  637 lines
  1. /*    Yes/Noを1/2に変換する    */
  2. %YesNo    {[YN,default];
  3.     case(YN,{Yes},{im({1})},{No},{im({2})},,{im(default)});
  4.     };
  5. /*    USER-ID & PASSWORDの設定    */
  6. %setID    {%id ID;%pass PassWord;
  7.     loop    ({
  8.         footnote({ユーザー情報を設定して下さい});SNDMSG({nyuryo_f.snd});        %a @plane(
  9.             {cユーザー情報を設定して下さい\n}|
  10.             {tユーザーＩＤ  /xxxxxxxx\n}|
  11.             {tパスワード    /xxxxxxxx\n}|
  12.             {s              / 設定 / 取消 },
  13.             id,pass);
  14. %id    @head(@getline(a,1,1),{\n});%pass    @head(@getline(a,2,1),{\n});
  15. %ok    @head(@getline(a,3,1),{\n});
  16.         case    (ok,
  17.             { 1},{ID:=id;PassWord:=pass;im({No})},
  18.             { 2},{im({No})},,{im({No})});
  19.         })};
  20. %setAT    {var type[10];
  21.     footnote({モデムのタイプを選択して下さい});
  22.     type := @select({どういうタイプのモデムですか？},
  23.         Wtime4,{im({1200n})},
  24.         {  １２００　                  ＭＮＰなし  },{im({1200n})},
  25.         {  ２４００　                  ＭＮＰなし  },{im({2400n})},
  26.         {  ２４００(端末速度2400)　    ＭＮＰあり  },{im({2400m})},
  27.         {  ２４００(端末速度4800)　    ＭＮＰあり  },{im({4800m})},
  28.         {  2400以上(端末速度9600以上)　ＭＮＰあり  },{im({9600m})});
  29.     SNDMSG({nyuryo_f.snd});
  30.     footnote({ＡＴコマンドを設定して下さい});
  31.     %a @input({ATコマンドを設定して下さい  例｢ATX3\N3\V1\Q3\J0｣},,
  32.                         {AT}|@head(MODEM,{/}));
  33.     case    (a<>{},{Yes},
  34.         {case(@getchar(a,1,2),{AT},
  35.             {case(a=@head(a,{\}),{Yes},
  36.                 {MODEM:=@getchar(a,3,999)|{/}|
  37.                     @getchar(a,3,999)|{/AT直接指定_}|type;},                ,{MODEM:=@getchar(a,3,999)|{/}|
  38.                     {/AT直接指定_}|type;})})
  39.         },{No},{setAT})};
  40. /* '93/ 2 / 7 Take */
  41. %setCABL{%modem    {case    (MODEM,{},{im({未設定})},
  42.             ,  {head(@tail(MODEM,{/}),{_})}
  43.             )};
  44.     SNDMSG({erande_f.snd});
  45.     footnote({ホストのバージョンを選んで下さい});
  46.     select({ﾎｽﾄのﾊﾞｰｼﾞｮﾝを選んで下さい  現在は｢}|@modem|{｣です},
  47.     Wtime4,{},
  48.     {RTBBS5.3αe以前},     {MODEM:={RET//RTBBS5.3αe_00s}},
  49.     {RTBBS5.3βa以降},     {MODEM:={ESC//RTBBS5.3βa_00s}},
  50.     {変更しない},{}
  51.     )};
  52. %FUJITSU{
  53.     SNDMSG({erande_f.snd});
  54.     footnote({モデムの機種を選んで下さい});
  55.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  56.     Wtime4,{},
  57.     {内蔵1200},     {MODEM:={X3//内蔵1200_1200n}},
  58.     {内蔵2400},    {MODEM:={X3/\N3\V1\Q3\J0%C0/内蔵2400_9600m}},
  59.     {富士通 PM1200F},{MODEM:={X3//PM1200F_1200n}},
  60.     {富士通 PM2400F},{MODEM:={X3/\N3\V1\Q3\J0%C0/PM2400F_9600m}},
  61.     {富士通 PM2400FII},{MODEM:={X3/\N7\V1\Q3\J0\V2%C0/PM2400FII_9600m}},
  62.     {富士通 OAMD-301},{MODEM:={X3&D2/\N3\Q3\J0\V2/OAMD-301_9600m}},
  63.     {ATコマンド直設定 },{setAT},{変更しない},{}
  64.     )};
  65. %AIWA    {
  66.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  67.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  68.     Wtime4,{},
  69.     {AIWA PV-A1200},{MODEM:={X3//PV-A1200_1200n}},
  70.     {AIWA PV-A2400},{MODEM:={X3//PV-A2400_2400n}},
  71.     {AIWA PV-A2400MNP4},{MODEM:={&D2/&M4\Q1/PV-A2400MNP4_9600m}},
  72.     {AIWA PV-A24MNP5},{MODEM:={X3&D2/\N3\Q3\J0/PV-A24MNP5_9600m}},
  73.     {AIWA PV-A24V42},{MODEM:={X3&D2/\N3\Q3\J0/PV-A24V42_9600m}},
  74.     {AIWA PV-M24},{MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24_9600m}},
  75.     {AIWA PV-M24M5},{MODEM:={X3&D2/\N3\Q3\J0\V2/PV-M24M5_9600m}},
  76.     {AIWA PV-M24B5},{MODEM:={X3&D2/\N3\Q3\J0\V2%C0/PV-M24B5_9600m}},
  77.     {AIWA PV-A96V5},{MODEM:={X3&D2/\N3\Q3\J0\V2%C0/PV-A96V5_9600m}},
  78.     {ATコマンド直設定 },{setAT},{変更しない},{}
  79.     )};
  80. %OMRON    {
  81.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  82.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  83.     Wtime4,{},
  84. {OMRON MD1200},{MODEM:={X3//MD1200_1200n}},
  85. {OMRON MD12FS},{MODEM:={X3//MD12FS_1200n}},
  86. {OMRON MD2400F},{MODEM:={X3/\N3\V1\Q2\J0/MD2400F_2400m}},
  87. {OMRON MD24FB5V},{MODEM:={X3/\N3\Q2\J0\V2%C0/MD24FB5V_9600m}},
  88. {OMRON MD24FP4},{MODEM:={X3/\N3\Q2\J0/MD24FP4_2400m}},
  89. {OMRON MD24FP4II},{MODEM:={X3&P2/\N3\Q2\J0/MD24FP4II_9600m}},
  90. {OMRON MD24FP5V},{MODEM:={X3/\N3\Q2\J0\V2%C0/MD24FP5V_9600m}},
  91. {OMRON MD24FS4},{MODEM:={X3/\N3\Q2\J0/MD24FS4_2400m}},
  92. {OMRON MD24FS5},{MODEM:={X3&E0/\N3\Q2\J0%C1/MD24FS5_4800m}},
  93. {OMRON MD24FS7},{MODEM:={X3/\N3\Q2\J0%C3/MD24FS7_4800m}},
  94. {OMRON MD96FB5V (MNP)},{MODEM:={X3&E0/\N3\Q2\J0%C1/MD96FB5V_9600m}},
  95. {OMRON MD96FB5V (LAP)},{MODEM:={X3&E0/\N3%C1&M5*C1\D0\J0/MD96FB5V_9600m}},
  96.     {ATコマンド直設定 },{setAT},{変更しない},{}
  97.     )};
  98. %EPSON    {
  99.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  100.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  101.     Wtime4,{},
  102.     {EPSON SR-120S},{MODEM:={X3//SR-120S_1200n}},
  103.     {EPSON SR-240AT},{MODEM:={X3//SR-240AT_2400n}},
  104.     {EPSON SR-240V},{MODEM:={X3\V2/N1&K1%C0/SR-240V_9600m}},
  105.     {ATコマンド直設定 },{setAT},{変更しない},{}
  106.     )};
  107. %NEC    {
  108.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  109.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  110.     Wtime4,{},
  111.     {NEC COMSTAR 2424},{MODEM:={X3/\N3\Q2/COMSTAR 2424_2400m}},
  112.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  113.     )};
  114. %SONY    {
  115.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  116.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  117.     Wtime4,{},
  118.     {SONY IT-V1200},{MODEM:={X3//IT-V1200_1200n}},
  119.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  120.     )};
  121. %MICROCORE{
  122.     SNDMSG({erande_f.snd});footnote({モデムの機種を選んで下さい});
  123.     select({モデムの機種を選んで下さい  現在は｢}|@modem|{｣です},
  124.     Wtime4,{},
  125.     {MICROCORE MC24PA5},{MODEM:={X3/\N5\Q2\J0\X1%C1/MC24PA5_9600m}},
  126.     {},{},{ATコマンド直設定 },{setAT},{変更しない},{}
  127.     )};
  128. %setMODEM{
  129.     %modem    {case(MODEM,{},{im({未設定})},,{head(@tail(MODEM,{/}),{_})})};
  130.     SNDMSG({erande_f.snd});footnote({モデムのメーカーを選んで下さい});
  131.     select({モデムのメーカーを選んで下さい},
  132.     Wtime4,{},
  133.     {  ＦＵＪＩＴＳＵ  },{FUJITSU},    {     ＡＩＷＡ     },{AIWA},
  134.     {    ＯＭＲＯＮ    },{OMRON},    {    ＥＰＳＯＮ    },{EPSON},
  135.     {      ＮＥＣ      },{NEC},    {     ＳＯＮＹ     },{SONY},
  136.     {   マイクロコア   },{MICROCORE},{ ATコマンド直設定 },{setAT},
  137.     { クロス･ケーブル接続 },{setCABL}
  138.     )};
  139. /*    ダイヤル種類の設定    */
  140. %setDIAL{%dial    {case    (DIAL,
  141.             {P},{im({ダイヤルパルス式})},
  142.             {T},{im({プッシュホン式})},
  143.             ,   {im({未設定})})};
  144.     footnote({電話回線の種類を指定して下さい});
  145.     select    ({電話回線の種類を指定して下さい  現在は}|@dial|{です},
  146.         Wtime4,{},
  147.         {ダイヤルパルス式},{DIAL:={P}},
  148.         { プッシュホン式 },{DIAL:={T}}
  149.         )};
  150. %setMDM    {loop    ({
  151.         SNDMSG({erande_f.snd});
  152.         footnote({設定する情報を選択して下さい});
  153.         select    ({設定する情報を選択して下さい  << モデム設定 >>},
  154.             Wtime4,{im({No})},
  155.             {    モデム機種の設定    },{setMODEM;im({Yes})},
  156.             {   ダイヤル種類の設定   },{setDIAL;im({Yes})},
  157.             {        設定終了        },{im({No})}
  158.             )})};
  159. /*    ＲＯＡＤの回線スピードの設定    */
  160. %setSPEED{
  161.     SNDMSG({erande_f.snd});footnote(NET|{ネットのスピードを指定して下さい});
  162.     select    (NET|{ ネットのスピードを指定して下さい},
  163.         Wtime4,{im({No})},
  164.         {  1200  },{ROAD:=@nth(ROAD,1,{/})|{/1200}},
  165.         {  2400  },{ROAD:=@nth(ROAD,1,{/})|{/2400}},
  166.         {  4800  },{ROAD:=@nth(ROAD,1,{/})|{/4800}},
  167.         {  9600  },{ROAD:=@nth(ROAD,1,{/})|{/9600}}
  168.         )};
  169. %setTEL    {    %setNETTEL{    SNDMSG({nyuryo_f.snd});
  170.         footnote({ネット巡回機能で使用します});
  171.         NETname:=@input(NET|{の正式なネット名称を入力して下さい},
  172.                 ,NETname);
  173.         footnote(NET|{-NET電話番号を入力して下さ});
  174.         ROAD:=@input(NET|{-NETの電話番号を入力して下さい},
  175.                 ,@nth(ROAD,1,{/}));
  176.         setSPEED};
  177.         %setACP{
  178.         select({            ＜＜ アクセスポイント ＞＞},
  179.             Wtime4,{},
  180.             {区域内通話 },{AcP:={区域内通話};AcPNo:=1},
  181.             {隣接～20km },{AcP:={隣接～20km};AcPNo:=2},
  182.             {    ～30km },{AcP:={20km～30km};AcPNo:=3},
  183.             {    ～40km },{AcP:={30km～40km};AcPNo:=4},
  184.             {    ～60km },{AcP:={40km～60km};AcPNo:=5},
  185.             {    ～80km },{AcP:={60km～80km};AcPNo:=6},
  186.             {   ～100km },{AcP:={80km～100km};AcPNo:=7},
  187.             {   ～160km },{AcP:={100km～160km};AcPNo:=8},
  188.             { 160km以上 },{AcP:={160km以上};AcPNo:=9});
  189.             };
  190.     loop    ({SNDMSG({erande_f.snd});
  191.         footnote({ＲＴＢＢＳ－ＮＥＴの電話番号を選択して下さい});
  192.         select    ({電話番号を入力して下さい},
  193.             Wtime4,{im({No})},
  194.             {  入力する    },{SNDMSG({nyuryo_f.snd});
  195.             footnote({NETの名称を入力して下さい});
  196.     %net @input({ログファイル名称に使用しますので、必ず半角の大文字\n}|
  197.         {３文字にてNETの簡易名称を入力して下さい。\n}|
  198.         { 尚　簡易名称は「.」を含まないで表現して下さい。\n},
  199.             ,NET);
  200.         case    (@nochar(net),
  201.             3,{NET:=net;setNETTEL;setACP},    
  202.             2,{NET:=net;setNETTEL;setACP},
  203.             ,{setTEL});im({Yes});
  204.             },
  205.             {      設定終了      },{im({No})}
  206.             )})};
  207. /* ディレクトリの設定    */
  208. %setDIR    {%arcdir LOG;%wkdir TEMP;%updir UP;%viewdir VIEWLOG;%catdir RTTLC;
  209.  
  210.     loop    ({footnote({ディレクトリ情報を設定してください});
  211.         SNDMSG({nyuryo_f.snd});
  212.         %a @plane(
  213.             {cディレクトリを入力してください\n}|
  214.             {c  ﾄﾞﾗｲﾌﾞ名からのﾌﾙﾊﾟｽで入力してください\n}|
  215.             {tログ保存ディレクトリ        /\n}|
  216.             {tテンポラリディレクトリ      /\n}|
  217.             {tアップロードディレクトリ    /\n}|
  218.             {tＲＴＴＬＣ出力ディレクトリ  /\n}|
  219.             {tログ参照時の第２ディレクトリ/\n}|
  220.             {s                        / 設定 / 取消 },
  221.             arcdir,wkdir,updir,catdir,viewdir);
  222. %arcdir    @head(@getline(a,1,1),{\n});%wkdir    @head(@getline(a,2,1),{\n});
  223. %updir    @head(@getline(a,3,1),{\n});%catdir    @head(@getline(a,4,1),{\n});
  224. %viewdir@head(@getline(a,5,1),{\n});%ok        @head(@getline(a,6,1),{\n});
  225.         case(ok,{ 1},{    LOG:=arcdir;    mkdir2(LOG);
  226.                 TEMP:=wkdir;    mkdir2(TEMP);
  227.                 UP:=updir;    mkdir2(UP);
  228.                 RTTLC:=catdir;    VIEWLOG:=viewdir;
  229.                 im({No})},
  230.             { 2},{im({No})},,{im({No})});
  231.         })};
  232. %setLOGF{loop({SNDMSG({erande_f.snd});footnote({設定する情報を選択して下さい});
  233.         select    ({設定する情報を選択して下さい  << ログファイル情報 >>},
  234.             Wtime4,{im({No})},
  235.             {    ディレクトリの設定    },{setDIR;im({Yes})},
  236.             {         設定終了         },{im({No})}
  237.             )})};
  238. /*    背景色の設定をする    */
  239. %setCOLOR{case    (R,{},{R:=0});case    (G,{},{G:=0});    case    (B,{},{B:=0});
  240.     SNDMSG({erande_f.snd});footnote({背景色の変更をします});
  241.     loop    ({select    ({背景色の変更をします}|
  242.                 {  現在は r=}|R|{ g=}|G|{ b=}|B|{ です},
  243.             Wtime4,{im({No})},
  244.             {赤↑},
  245.             {case(R<251,{Yes},{R:=R+5;backclr(R,G,B)});im({Yes})},
  246.             {赤↓},
  247.             {case(R>  4,{Yes},{R:=R-5;backclr(R,G,B)});im({Yes})},
  248.             {緑↑},
  249.             {case(G<251,{Yes},{G:=G+5;backclr(R,G,B)});im({Yes})},
  250.             {緑↓},
  251.             {case(G>  4,{Yes},{G:=G-5;backclr(R,G,B)});im({Yes})},
  252.             {青↑},
  253.             {case(B<251,{Yes},{B:=B+5;backclr(R,G,B)});im({Yes})},
  254.             {青↓},
  255.             {case(B>  4,{Yes},{B:=B-5;backclr(R,G,B)});im({Yes})},
  256.             {終了},
  257.             {im({No})}
  258.             )})};
  259. /*    音声メッセージファイルのコピー    */
  260. %copySND{[snddir]        /* 最後は｢\｣であること */
  261.     display    (BELL);footnote({システムＣＤをセットして下さい});
  262.     select    ({システムＣＤをセットして下さい},
  263.         Wtime4,,
  264.         { ＯＫ },
  265.         {case    (@setcdir({q:\fj\msg}),    /* v1.1    */
  266.             {Yes},{
  267.             footnote({erande_f.sndをコピーします});
  268.             command({copy order\erande_f.snd }|snddir|{*.*});
  269.             footnote({nyuryo_f.sndをコピーします});
  270.             command({copy order\nyuryo_f.snd }|snddir|{*.*});
  271.             footnote({kaknin_f.sndをコピーします});
  272.             command({copy order\kaknin_f.snd }|snddir|{*.*});
  273.             footnote({owata_f.sndをコピーします});
  274.             command({copy info\owata_f.snd }|snddir|{*.*});
  275.             footnote({okasi_f.sndをコピーします});
  276.             command({copy alarm\okasi_f.snd }|snddir|{*.*});
  277.             footnote({okaeri_f.sndをコピーします});
  278.             command({copy greeting\okaeri_f.snd }|snddir|{*.*});
  279.             footnote({jikan_f.sndをコピーします});
  280.             command({copy info\jikan_f.snd }|snddir|{*.*});
  281.             },
  282.             {No},{
  283.             case    (@setcdir({q:\fj2\msg}),    /* v2.1 */
  284.                 {Yes},{
  285.             footnote({erande_f.sndをコピーします});
  286.             command({copy order\erande_f.snd }|snddir|{*.*});
  287.             footnote({nyuryo_f.sndをコピーします});
  288.             command({copy order\nyuryo_f.snd }|snddir|{*.*});
  289.             footnote({kaknin_f.sndをコピーします});
  290.             command({copy order\kaknin_f.snd }|snddir|{*.*});
  291.             footnote({owata_f.sndをコピーします});
  292.             command({copy info\owata_f.snd }|snddir|{*.*});
  293.             footnote({okasi_f.sndをコピーします});
  294.             command({copy warning\okasi_f.snd }|snddir|{*.*});
  295.             footnote({okaeri_f.sndをコピーします});
  296.             command({copy greeting\okaeri_f.snd }|snddir|{*.*});
  297.             footnote({jikan_f.sndをコピーします});
  298.             command({copy info\jikan_f.snd }|snddir|{*.*});
  299.                 });
  300.             });
  301.         footnote({});
  302.         },
  303.         { ＮＯ },
  304.         )};
  305. /*    音声メッセージファイルの設定    */
  306. %setSNDDIR{SNDMSG({nyuryo_f.snd});
  307.     footnote({ディレクトリ名を入力して下さい});
  308.     %sound    @input({音声ﾒｯｾｰｼﾞﾌｧｲﾙを格納するﾃﾞｨﾚｸﾄﾘを指定して下さい\n}
  309.             |{    ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}
  310.             |{    例  A:\MOPTERM\SOUND},
  311.             ,SOUND);
  312.     case    (@getchar(sound,2,2)={:\},
  313.         {No},setSNDDIR,
  314.         {Yes},{SOUND:={}}
  315.         );
  316.     %sound2    {case    (@nochar(sound),
  317.             {3},{im(sound)},,{im(sound|{\})})};
  318.     mkdir2    (sound);
  319.     case    (@filechk(@sound2|{erande_f.snd})&&
  320.          @filechk(@sound2|{nyuryo_f.snd})&&
  321.          @filechk(@sound2|{kaknin_f.snd})&&
  322.          @filechk(@sound2|{okasi_f.snd})&&
  323.          @filechk(@sound2|{owata_f.snd})&&
  324.          @filechk(@sound2|{okaeri_f.snd})&&
  325.          @filechk(@sound2|{jikan_f.snd}),
  326.         {No},{copySND(@sound2)});
  327.     SOUND:=sound;
  328.     case(@nochar(SOUND)=3,{Yes},{SOUND2:=SOUND},{No},{SOUND2:=SOUND|{\}});
  329.     VBELL:={No};
  330.     };
  331. /*    ｂｅｌｌｆｉｌｅの設定    */
  332. %setBELFIL{SNDMSG({erande_f.snd});
  333.     footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
  334.     %bell    @filesel({SND});
  335.     %bell2    {case    (@nochar(@getcdir),{3},{im(@getcdir|bell)},
  336.                     ,{im(@getcdir|{\}|bell)})};
  337.     case    (bell,{},{BELFIL:={}},,{BELFIL:=@bell2});
  338.     case    (@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
  339.         {Yes},{bellfile(BELFIL)});
  340.     SOUND:={};SOUND2:={};VBELL:={No};
  341.     };
  342. /*    入力プロンプトの設定    */
  343. %setPRMPT{SNDMSG({erande_f.snd});
  344.     footnote({入力時のプロンプト方法を指定して下さい});
  345.     select    ({入力時のプロンプト方法を指定して下さい},
  346.         Wtime4,,
  347.         {   音声メッセージ   },{VBELL:={No};setSNDDIR},
  348.         {      ブザー音      },{SOUND:={};SOUND2:={};VBELL:={No}},
  349.         {   画面フラッシュ   },{SOUND:={};SOUND2:={};VBELL:={Yes}},
  350.         {指定のｓｎｄファイル},{VBELL:={No};setBELFIL}
  351.         );
  352.     visibell(VBELL);
  353.     };
  354. /*    なっとうスクロールの設定    */
  355. %setNATTOU{%natto    {case    (NATTOU,
  356.             {Yes},{im({『  使用する  』})},
  357.             ,     {im({『 使用しない 』})}
  358.             );
  359.         };
  360.     SNDMSG({erande_f.snd});footnote({なっとうスクロールを使用しますか});
  361.     select    ({なっとうスクロールを使用しますか  現在は}|@natto|{です},
  362.         Wtime4,,
  363.         {  使用する  },{NATTOU:={Yes};nattou(NATTOU)},
  364.         { 使用しない },{NATTOU:={No};nattou(NATTOU)}
  365.         );
  366.     };
  367. /*    クリック音の設定    */
  368. %setCLICK{%clk    {case    (CLICK,
  369.             {No},{im({『 クリック音なし 』})},
  370.             ,    {im({『 クリック音あり 』})}
  371.             );
  372.         };
  373.     SNDMSG({erande_f.snd});    footnote({クリック音を出力しますか});
  374.     select    ({クリック音を出力しますか  現在は}|@clk|{です},
  375.         Wtime4,,
  376.         { クリック音あり },{CLICK:={Yes};click(CLICK)},
  377.         { クリック音なし },{CLICK:={No};click(CLICK)}
  378.         );
  379.     };
  380. /*    タブサイズの設定    */
  381. %setTAB    {case    (TAB,{},{TAB:=8});
  382.     SNDMSG({erande_f.snd});footnote({タブサイズを指定して下さい});
  383.     select    ({タブサイズを指定して下さい  現在は}|TAB|{です},
  384.         Wtime4,,
  385.         { １ },{TAB:=1;tab(TAB)},{ ２ },{TAB:=2;tab(TAB)},
  386.         { ４ },{TAB:=4;tab(TAB)},{ ８ },{TAB:=8;tab(TAB)}
  387.         );
  388.     };
  389. /*    シフトロックの設定    */
  390. %setLOCK{%lock    {case    (LOCK,
  391.             {Yes},{im({『 シフトロックあり 』})},
  392.             ,     {im({『 シフトロックなし 』})}
  393.             );
  394.         };
  395.     SNDMSG({erande_f.snd});footnote({シフトロックを行いますか？});
  396.     select    ({シフトロックを行いますか  現在は}|@lock|{です},
  397.         Wtime4,,
  398.         { シフトロックあり },{LOCK:={Yes};shiftl(LOCK)},
  399.         { シフトロックなし },{LOCK:={No};shiftl(LOCK)}
  400.         );
  401.     };
  402. /*    かな漢字変換モードの初期値の設定    */
  403. %setOAK    {var    oakj    [2];    var    oakr    [2];
  404.     var    oakk    [2];    var    oakz    [2];
  405.     %exist    {[str,chr]
  406.         var n[4];var x[1];n:=0;    x:=2;
  407.         %leng    @nochar(str);
  408.         loop    ({    n:=n+1;
  409.             case    (n>leng,
  410.                 {Yes},{im({No})},
  411.                 {No},{case(@getchar(str,n,1)=chr,{Yes},{x:=1});
  412.                 im({Yes});
  413.                 });
  414.             });
  415.         im(x);
  416.         };
  417.     loop    ({oakj:=@exist(OAK,{J});oakr:=@exist(OAK,{R});
  418.         %k    @exist(OAK,{K});%h    @exist(OAK,{H});
  419.         case(k==2&&h==2,{Yes},{oakk:={3}});
  420.         case(k==1,{Yes},{oakk:={2}});case(h==1,{Yes},{oakk:={1}});
  421.         oakz:=@exist(OAK,{Z});
  422.         footnote({かな漢字変換モードを設定してください});
  423.         SNDMSG({erande_f.snd});
  424.         %a @plane(
  425.             {cかな漢字変換モードの初期値を設定してください\n}|
  426.             {r漢字辞書モード   /使用する/使わない\n}|
  427.             {r日本語入力モード /ローマ字/かな\n}|
  428.             {rカナモード       /ひらがな/カタカナ/英字\n}|
  429.             {r全角モード       /全角    /半角\n}|
  430.             {s                 /  設定  /  取消  },
  431.             oakj,oakr,oakk,oakz);
  432. oakj:=    @head(@getline(a,1,1),{\n});oakr:=    @head(@getline(a,2,1),{\n});
  433. oakk:=    @head(@getline(a,3,1),{\n});oakz:=    @head(@getline(a,4,1),{\n});
  434. %ok    @head(@getline(a,5,1),{\n});
  435.         case    (ok==1,
  436.             {Yes},{OAK:={};
  437.             case(oakj==1,{Yes},{OAK:=OAK|{J}});
  438.             case(oakr==1,{Yes},{OAK:=OAK|{R}});
  439.             case(oakk,{ 1},{OAK:=OAK|{H}},{ 2},{OAK:=OAK|{K}});
  440.             case(oakz==1,{Yes},{OAK:=OAK|{Z}});
  441.             case(OAK<>{},{Yes},{setoak(OAK)});
  442.             im({No});
  443.             },{No},{im({No})});
  444.             })};
  445. /*    その他の設定をする    */
  446. %setETC    {%Nattou    @YesNo(NATTOU,{1});%Click    @YesNo(CLICK,{2});
  447.     %Tab    @case    (TAB,{1},{im({1})},{2},{im({2})},{4},{im({3})},
  448.             {8},{im({4})},,{im({4})});
  449.     %Lock    @YesNo(LOCK,{2});%Opening@YesNo(OPENING,{1});
  450.     %Hosei    @case(HOSEI,{-m},{im({1})},{ },{im({2})},,{im({2})});
  451.     loop    ({
  452.         footnote({その他の条件を設定してください});
  453.         SNDMSG({erande_f.snd});
  454.         %a @plane(
  455.             {cその他の条件を選択してください\n}|
  456.             {s              /       背景色の設定       \n}|
  457.             {s              /   プロンプト方法の設定   \n}|
  458.             {s              / かな漢字変換初期値の設定 \n}|
  459.             {r納豆スクロール        /する/しない\n}|
  460.             {rクリック音出力        /する/しない\n}|
  461.             {rタブ数                /１/２/４/８\n}|
  462.             {rシフトロック          /する/しない\n}|
  463.             {rオープニング画面表示  /する/しない\n}|
  464.             {rＯＰ画面表示補正　　  /する/しない\n}|
  465.             {s                      / 設定 / 取消 },
  466.             Nattou,Click,Tab,Lock,Opening,Hosei);
  467. %sel1    @head(@getline(a,1,1),{\n});%sel2    @head(@getline(a,2,1),{\n});
  468. %sel3    @head(@getline(a,3,1),{\n});%Nattou    @head(@getline(a,4,1),{\n});
  469. %Click    @head(@getline(a,5,1),{\n});%Tab    @head(@getline(a,6,1),{\n});
  470. %Lock    @head(@getline(a,7,1),{\n});%Opening    @head(@getline(a,8,1),{\n});
  471. %Hosei    @head(@getline(a,9,1),{\n});%ok    @head(@getline(a,10,1),{\n});
  472.     case    (sel1==1,{Yes},{setCOLOR;im({Yes})});
  473.     case    (sel2==1,{Yes},{setPRMPT;im({Yes})});
  474.     case    (sel3==1,{Yes},{setOAK;im({Yes})});
  475.     case    (ok,
  476.         { 1},{NATTOU:=@case    (Nattou,
  477.         { 1},{nattou({Yes});im({Yes})},    { 2},{nattou({No});im({No})},
  478.         ,{im({})});
  479.         CLICK:=@case    (Click,
  480.         { 1},{click({Yes});im({Yes})},    { 2},{click({No});im({No})},
  481.             ,{im({})});
  482.         TAB:=@case    (Tab,
  483.             { 1},{tab({1});im({1})},{ 2},{tab({2});im({2})},
  484.             { 3},{tab({4});im({4})},{ 4},{tab({8});im({8})},
  485.             ,{im({})});
  486.             LOCK:=@case(Lock,{ 1},{shiftl({Yes});im({Yes})},
  487.             { 2},{shiftl({No});im({No})},,{im({})});
  488.             OPENING:=@case(Opening,{ 1},{im({Yes})},
  489.                 { 2},{im({No})},,{im({Yes})});
  490.             HOSEI:=@case(Hosei,{ 1},{im({-m})},
  491.                 { 2},{im({ })},,{im({ })});
  492.             im({No});
  493.             },{ 2},{im({No})},,{im({No})}
  494.             )})};
  495. /*    通信初期値の設定    */
  496. %setPARM{%updown    @case(UPDOWN,{first},{im({1})},{last},{im({2})},
  497.             {No},{im({3})},,{im({1})});
  498.     %maildel@YesNo(MAILDEL,{2});
  499.     %mailred@YesNo(MAILRED,{1});
  500.     %jisaR    @YesNo(JISAR,{1});
  501.     %who    @YesNo(WHO,{1});
  502.     %mactiv @YesNo(MACTIV,{2});
  503.     %doraend@case(DORAEND,{stopdora},{im({1})},{stopmop},{im({2})},
  504.             {poweroff},{im({3})},{continue},{im({4})},,{im({4})});
  505.     loop    ({footnote({通信処理の初期値を設定してください});
  506.         SNDMSG({erande_f.snd});
  507.         %a @plane(
  508.             {c通信処理の初期値を設定してください\n}|
  509.             {rｱｯﾌﾟ･ﾀﾞｳﾝﾛｰﾄﾞ実行ﾀｲﾐﾝｸﾞ/最初/最後/しない　\n}|
  510.             {r既読メールの削除       / する /しない　\n}|
  511.             {rメール送信簿の確認     / する /しない　\n}|
  512.             {r伝言板を見る           / する /しない　\n}|
  513.             {rアクセスユーザー確認   / する /しない　\n}|
  514.             {r月間アクティブ率を見る / する /しない  \n}|
  515.             {r自動通信終了後/DORA終了/MOPT終了/電源切断/DORA継続\n}|
  516.             {s                       / 設定 / 取消 },
  517.             updown,maildel,mailred,jisaR,who,mactiv,doraend);
  518. %updown @head(@getline(a,1,1),{\n});%maildel    @head(@getline(a,2,1),{\n});
  519. %mailred@head(@getline(a,3,1),{\n});%jisaR    @head(@getline(a,4,1),{\n});
  520. %who     @head(@getline(a,5,1),{\n});%mactiv    @head(@getline(a,6,1),{\n});
  521. %doraend@head(@getline(a,7,1),{\n});%ok        @head(@getline(a,8,1),{\n});
  522.         case    (ok,
  523.             { 1},{
  524.             UPDOWN:=@case(updown,{ 1},{im({first})},
  525.                 { 2},{im({last})},{ 3},{im({No})},
  526.                 ,{im({first})});
  527.             MAILDEL:=@case(maildel,{ 1},{im({Yes})},
  528.                 { 2},{im({No})},,{im({No})});
  529.             MAILRED:=@case(mailred,{ 1},{im({Yes})},{ 2},{im({No})},                ,{im({No})});
  530.             JISAR:=@case(jisaR,{ 1},{im({Yes})},{ 2},{im({No})},
  531.                 ,{im({No})});
  532.             WHO:=@case(who,{ 1},{im({Yes})},
  533.                 { 2},{im({No})},,{im({No})});
  534.             MACTIV:=@case(mactiv,{ 1},{im({Yes})},
  535.                 { 2},{im({No})},,{im({No})});
  536.             DORAEND:=@case(doraend,{ 1},{im({stopdora})},
  537.                 { 2},{im({stopmop})},{ 3},{im({poweroff})},
  538.                 { 4},{im({continue})},,{im({continue})});
  539.             im({No});
  540.             },{ 2},{im({No})},,{im({No})});
  541.         });
  542.     };
  543. /*    設定情報をもとに戻す    */
  544. %CANCEL    {footnote({本当にもとに戻してもいいですか？});
  545.     select    ({本当にもとに戻してもいいですか？},
  546.         Wtime4,,
  547.         { Ｏ Ｋ },
  548.         {case(@filechk(SETFILE),{Yes},
  549.         {setcdir(CDIR);#DORASET.SET;init;SETFILE1:={標準設定}})
  550.         },{ Ｎ Ｇ });
  551.     };
  552. /*    設定情報をファイルに保存する    */
  553. %writeSET{[file]
  554.     setcdir(CDIR);command({copy }|file|{ *.BAK});    delfile(file);
  555.     write(file,
  556.         {ID      :=}|@xc({7b})|ID|@xc({7d})|{;\n}|
  557.         {PassWord:=}|@xc({7b})|PassWord|@xc({7d})|{;\n}|
  558.         {AcP     :=}|@xc({7b})|AcP|@xc({7d})|{;\n}|
  559.         {AcPNo   :=}|@xc({7b})|AcPNo|@xc({7d})|{;\n}|
  560.         {ROAD    :=}|@xc({7b})|ROAD|@xc({7d})|{;\n}|
  561.         {NETname :=}|@xc({7b})|NETname|@xc({7d})|{;\n}|
  562.         {NET     :=}|@xc({7b})|NET|@xc({7d})|{;\n}|
  563.         {MODEM   :=}|@xc({7b})|MODEM|@xc({7d})|{;\n}|
  564.         {DIAL    :=}|@xc({7b})|DIAL|@xc({7d})|{;\n}|
  565.         {TEMP    :=}|@xc({7b})|TEMP|@xc({7d})|{;\n}|
  566.         {LOG     :=}|@xc({7b})|LOG|@xc({7d})|{;\n}|
  567.         {UP      :=}|@xc({7b})|UP|@xc({7d})|{;\n}|
  568.         {VIEWLOG :=}|@xc({7b})|VIEWLOG|@xc({7d})|{;\n}|
  569.         {RTTLC   :=}|@xc({7b})|RTTLC|@xc({7d})|{;\n}|
  570.         {UPDOWN  :=}|@xc({7b})|UPDOWN|@xc({7d})|{;\n}|
  571.         {MAILDEL :=}|@xc({7b})|MAILDEL|@xc({7d})|{;\n}|
  572.         {MAILRED :=}|@xc({7b})|MAILRED|@xc({7d})|{;\n}|
  573.         {JISAR   :=}|@xc({7b})|JISAR|@xc({7d})|{;\n}|
  574.         {WHO     :=}|@xc({7b})|WHO|@xc({7d})|{;\n}|
  575.         {MACTIV  :=}|@xc({7b})|MACTIV|@xc({7d})|{;\n});
  576.     write(SETFILE,
  577.         {OPENING :=}|@xc({7b})|OPENING|@xc({7d})|{;\n}|
  578.         {HOSEI   :=}|@xc({7b})|HOSEI|@xc({7d})|{;\n}|
  579.         {SOUND   :=}|@xc({7b})|SOUND|@xc({7d})|{;\n}|
  580.         {R       :=}|@xc({7b})|R|@xc({7d})|{;\n}|
  581.         {G       :=}|@xc({7b})|G|@xc({7d})|{;\n}|
  582.         {B       :=}|@xc({7b})|B|@xc({7d})|{;\n}|
  583.         {BELFIL  :=}|@xc({7b})|BELFIL|@xc({7d})|{;\n}|
  584.         {VBELL   :=}|@xc({7b})|VBELL|@xc({7d})|{;\n}|
  585.         {NATTOU  :=}|@xc({7b})|NATTOU|@xc({7d})|{;\n}|
  586.         {CLICK   :=}|@xc({7b})|CLICK|@xc({7d})|{;\n}|
  587.         {LOCK    :=}|@xc({7b})|LOCK|@xc({7d})|{;\n}|
  588.         {TAB     :=}|@xc({7b})|TAB|@xc({7d})|{;\n}|
  589.         {OAK     :=}|@xc({7b})|OAK|@xc({7d})|{;\n}|
  590.         {AP3     :=}|@xc({7b})|AP3|@xc({7d})|{;\n}|
  591.         {DORAEND :=}|@xc({7b})|DORAEND|@xc({7d})|{;\n});
  592.     SETFILE1:={標準設定};
  593.     };
  594. /*    設定情報をファイルに保存する    */
  595. %SAVE    {
  596.     var    newfile    [64];SNDMSG({erande_f.snd});
  597.     footnote({設定情報を保存するファイルを指定して下さい});
  598.     newfile:=@filesel({USR});
  599.     case    (newfile<>{},
  600.         {Yes},{
  601.         %newdir    @getcdir;
  602.         case    (@nochar(newdir)==3,
  603.             {Yes},{newfile:=newdir|newfile},
  604.             {No},{newfile:=newdir|{\}|newfile});
  605.         writeSET(newfile)})};
  606. /*    ファイルから設定情報を読み込む    */
  607. %LOAD    {var    newfile    [64];SNDMSG({erande_f.snd});
  608.     footnote({設定情報を読み込むファイルを指定して下さい});
  609.     newfile:=@filesel({USR});
  610.     case(newfile<>{},{Yes},{
  611.         %newdir    @getcdir;
  612.         case(@nochar(newdir)==3,
  613.             {Yes},{newfile:=newdir|newfile},
  614.             {No},{newfile:=newdir|{\}|newfile});
  615.         case(@filechk(newfile),{Yes},
  616.             {%ExcPilot {#}|newfile;ExcPilot;init;
  617.                 SETFILE1:=@tail(newfile,{\})})});
  618.     setcdir(CDIR)};
  619. /*    設定する情報の選択    */
  620. %DORASET{loop    ({
  621.             footnote({設定する情報を選択して下さい});
  622.         select    ({設定する情報を選択して下さい  << 各種の設定 >>},
  623.             60,{im({No})},
  624.             {ユーザーＩＤとパスワードの設定},{setID;im({Yes})},
  625.             {         モデムの設定         },{setMDM;im({Yes})},
  626.             { ＮＥＴ名称と電話番号の設定   },{setTEL;im({Yes})},
  627.             {      ログファイルの設定      },{setLOGF;im({Yes})},
  628.             {      その他の通信の設定      },{setPARM;im({Yes})},
  629.             {         その他の設定         },{setETC;im({Yes})},                {      もとの設定にもどす      },{CANCEL;im({Yes})},
  630.             {   設定をファイルに保存する   },{SAVE;im({Yes})},
  631.             {  ファイルから設定を読み込む  },{LOAD;im({Yes})},
  632.             {      設定を保存して終了      },
  633.             {writeSET(SETFILE);im({No})},
  634.             {   保存しない(一時的な変更)   },
  635.             {SETFILE1:={一時設定};im({No})}
  636.             )})};
  637. DORASET;